(compare-windows): lambda's take an arg and pass

it to compare-windows-skip-whitespace.

diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index 3aa01424fb59eb2e815fa77fe87d07ce73b0ae33..8dc0ac1e330eab436a03195fcffd59e8f4861d6f 100644 (file)
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -191,14 +191,16 @@ on third call it again advances points to the next difference and so on."
 
     (setq skip-func-1 (if ignore-whitespace
                          (if (stringp compare-windows-whitespace)
-                             (lambda () (compare-windows-skip-whitespace)
+                             (lambda (pos)
+                               (compare-windows-skip-whitespace pos)
                                t)
                            compare-windows-whitespace)))
 
     (with-current-buffer b2
       (setq skip-func-2 (if ignore-whitespace
                            (if (stringp compare-windows-whitespace)
-                             (lambda () (compare-windows-skip-whitespace)
+                             (lambda (pos)
+                               (compare-windows-skip-whitespace pos)
                                t)
                              compare-windows-whitespace)))
       (push-mark p2 t)